home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / SYMBOL.ST < prev    next >
Text File  |  1987-06-17  |  256b  |  15 lines
  1. Class Symbol
  2. [
  3.     == aSymbol
  4.         ^ <SameTypeOfObject self aSymbol >
  5.             ifTrue:  [<SymbolCompare self aSymbol >]
  6.             ifFalse: [false]
  7. |
  8.     printString
  9.         ^ <SymbolPrintString self>
  10. |
  11.     asString
  12.         ^ <SymbolAsString self>
  13. ]
  14.  
  15.